home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / menustuf.sit / Changes to DirectoryMenu script.txt next >
Text File  |  1990-04-16  |  2KB  |  36 lines
  1. File #1: TwoSquare:MPW:Scripts:DirectoryMenu
  2. File #2: MPW2:Scripts:DirectoryMenu
  3.  
  4. Extra lines in 1st before 19 in 2nd (File "TwoSquare:MPW:Scripts:DirectoryMenu"; Line 19:25; File "MPW2:Scripts:DirectoryMenu"; Line ╞19)
  5.   19    #
  6.   20    #  Modified by LDO 1989 March 8 so text of first menu item
  7.   21    #  is set to actual current directory (see also changes to
  8.   22    #  SetDirectory).
  9.   23    #  Modified by LDO 1989 May 29 to avoid interpretation of
  10.   24    #  special characters in text of menu items.
  11.   25    #
  12.  
  13.  
  14. Nonmatching lines (File "TwoSquare:MPW:Scripts:DirectoryMenu"; Line 37:49; File "MPW2:Scripts:DirectoryMenu"; Line 30:34)
  15.   37       AddMenu Directory "New Directory" ╢
  16.   38          '(Directory "'"{directory}"'"; SetMenu Directory 1 "'"{directory}"'") ╢
  17.   39             > "{ShellDirectory}"MPW.Errors │ Dev:StdOut ╢
  18.   40             || Alert < "{ShellDirectory}"MPW.Errors'
  19.   41       SetMenu Directory `FindMenuItem Directory "New Directory"` "{Directory}"
  20.   42    End
  21.   43    #  Note: AddMenu checks for an existing menu item with the specified
  22.   44    #  text before adding a new one. For this reason, I don't change
  23.   45    #  item 1 to reflect the current directory until all the menu items
  24.   46    #  have been created, in case one of them matches the current
  25.   47    #  directory.
  26.   48    SetMenu Directory 1 `Directory`
  27.   49    Exit 0
  28.  
  29.   30       AddMenu Directory "{directory}" ╢
  30.   31          'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors │ Dev:StdOut ╢
  31.   32            || Alert < "{ShellDirectory}"MPW.Errors'
  32.   33    End
  33.   34    Exit 0
  34.  
  35. *** EOF on both files ***
  36.